home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00229_Script_bar comp pop < prev    next >
Text File  |  1999-03-07  |  1KB  |  61 lines
  1. property thePopLocn, popSpriten, popNamen, mySpriten, faraway, fieldObjn
  2. property thehilitesprite
  3. global currentChartName, popbgSpriten
  4.  
  5. on new me
  6.   set mySpriten = the spriteNum of me
  7.   set popSpriten = mySpriten + 1
  8.   set popbgSpriten = mySpriten - 3
  9.   set right = the right of sprite (mySpriten - 2)
  10.   set top = the top of sprite (mySpriten -2)
  11.   set thePopLocn = point(right, top)
  12.   set thehilitesprite = mySpriten - 1
  13.   set popNamen = "mdl_field"
  14.   
  15.   puppetSprite popSpriten, true  
  16.   set faraway = point(-1000, -1000)
  17.   set the loc of sprite popSpriten = faraway
  18.   
  19.   return me
  20. end
  21.  
  22. on register me, theObj
  23.   set fieldObjn = theObj
  24.   return thehilitesprite
  25. end 
  26.  
  27.  
  28. on mouseDown me
  29.   set the member of sprite popSpriten = member popNamen
  30.   set the loc of sprite popSpriten = thePopLocn
  31.   set the member of sprite popbgSpriten = member popNamen
  32.   set the loc of sprite popbgSpriten = thePopLocn
  33.   -- put "popped - " & thepoploc
  34.   updateStage
  35.   repeat while the stillDown
  36.     checkIfInsideh fieldObjn
  37.   end repeat
  38.   
  39.   set the loc of sprite popSpriten = faraway
  40.   set the loc of sprite popbgSpriten = faraway
  41.   
  42.   
  43.   set name = getPlaneNameh(fieldObjn)
  44.   if name = "" then 
  45.     nothing
  46.   else
  47.     compbars name
  48.   end if
  49.   
  50.   
  51.   set the loc of sprite popSpriten = faraway
  52.   set the loc of sprite popbgSpriten = faraway
  53.   
  54.   updateStage
  55. end
  56.  
  57. on mouseUp me
  58.   
  59.   nothing
  60. end 
  61.